add defconst support

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index c5c36e9eda8e4fe19e0fb8fb6947d679e3ec8030..12c8ca63699449dafbff33333a90488c1ccb32dd 100644 (file)
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -283,9 +283,9 @@ Put PREFIX in front of it."
   (byte-compile-file filename)
   (setf (comp-ctxt-top-level-defvars comp-ctxt)
         (reverse (mapcar (lambda (x)
-                           (if (eq (car x) 'defvar)
-                               (cdr x)
-                             (cl-assert nil)))
+                           (ecase (car x)
+                             ('defvar (cdr x))
+                             ('defconst (cdr x))))
                          byte-to-native-top-level-forms)))
   (cl-loop for (name lap bytecode) in byte-to-native-output
            for lambda-list = (aref bytecode 0)